home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 November / 1988-11.d64 / font grabber (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  119 lines
  1. 10 poke53280,0:poke53281,0:poke646,3
  2. 20 poke53272,peek(53272)or2
  3. 30 gosub1110
  4. 40 print"   [207]ptions:
  5. 50 [153]"             1wait str$isk file.
  6. 60 print"             2[146] [205]emory.
  7. 70 [161]d$:[139]d$[178]""[167]70
  8. 80 d[178][197](d$):[139]d[179]1 [176] d[177]2 [167]70
  9. 90 [153]"   chr$rab:
  10. 100 print"          1[146] [211]et#0 [213]ppercase/[199]raphics."
  11. 110 print"          2[146] [211]et#1 [204]ower/[213]ppercase."
  12. 120 getg$:ifg$=""then120
  13. 130 g=val(g$):ifg<1org>2 then120
  14. 140 gosub1110
  15. 150 input" [206]ame for new [199][197][207][211] font";m$
  16. 160 ifg=2thenf=2048
  17. 170 if d=2 then490
  18. 180 print"[147]  [201]nsert [196]isk [215]ith [198][207][206][212] [198]ile in drive:"
  19. 190 geta$:ifa$=""then190
  20. 200 print"[147]  [215]hen listing reaches [198][207][206][212] to edit,"
  21. 210 print"               [200]it a [203]ey."
  22. 220 open15,8,15
  23. 230 open1,8,0,"$"
  24. 240 get#1,a$,a$
  25. 250 get#1,a$,a$
  26. 260 ifa$=""then380
  27. 270 get#1,a$,a$
  28. 280 get#1,a$
  29. 290 ifa$=chr$(34)thent=t+1
  30. 300 ifa$=chr$(34)ort<>1then320
  31. 310 d$=d$+a$
  32. 320 if a$=""then340
  33. 330 goto280
  34. 340 printd$
  35. 350 geta$:ifa$<>""then380
  36. 360 d$="":t=0
  37. 370 goto250
  38. 380 close1:close15
  39. 390 print"[205]ove cursor to selection, [200]it [210][197][212][213][210][206][146]"
  40. 400 inputn$
  41. 410 open3,8,8,n$+",p,r"
  42. 420 e=12288
  43. 430 poke780,1:poke781,8:poke782,0
  44. 440 sys65466
  45. 450 poke780,0:poke781,0:poke782,e/256
  46. 460 sys65493
  47. 470 ifpeek(783)and1thenprint"load error":stop
  48. 480 close3:goto510
  49. 490 b=16384*(3-peek(56576)and3)
  50. 500 e=b+(peek(53272)and12)*1024+f
  51. 510 dim a$(9,97)
  52. 520 print"[147] [201]nsert [199][197][207][211] [196]isk with <swap> in [196]rive:"
  53. 530 print"               [200]it [210][197][212][213][210][206] [146]"
  54. 540 get a$:if a$=""then540
  55. 550 print"             [208]lease wait....
  56. 560 [159]1,8,15,"i:0":[159]2,8,2,"#0"
  57. 570 t[178]18:s[178]1
  58. 580 [152]1,"u1";2;0;t;s
  59. 590 [161]#2,t$,s$
  60. 600 t[178][198](t$[170][199](0)):s[178][198](s$[170][199](0))
  61. 610 [129] i[178]0 [164] 7
  62. 620 [152]1,"b-p";2;32[172]i[170]2
  63. 630 [161]#2,z$,p$,q$
  64. 640 [139] z$[178]"" [167]670
  65. 650 [161]#2,x$
  66. 660 [139] [198](x$)[178] 60 [167]710
  67. 670 [130] i
  68. 680 [139] t[179][177]0 [167]580
  69. 690 [160]1:[160]2
  70. 700 [153]"load    <swap> not on disk.":[137]520
  71. 710 t[178][198](p$[170][199](0)):s[178] [198](q$[170][199](0))
  72. 720 [152]1,"u1";2;0;t;s
  73. 730 [152]1,"b-p";2;22
  74. 740 [161]#2,t$,s$
  75. 750 t[178][198](t$[170][199](0)):s[178][198](s$[170][199](0))
  76. 760 [129] j[178]0 [164] 97:a$(0,j)[178][199](0):[130]j
  77. 770 [129] i[178]1 [164] 8
  78. 780 [129] j[178]0 [164] 63
  79. 790 a$(i,j)[178][199]([194](e[170]8[172](j[170]32)[170]i[171]1)):[130]j
  80. 800 a$(i,64)[178][199]([194](e[170]512[170]i[171]1))
  81. 810 [129] j[178]65 [164] 90
  82. 820 a$(i,j)[178][199]([194](e[170]8[172](j[171]64)[170]i[171]1)):[130]j
  83. 830 [129] j[178]91 [164] 97
  84. 840 a$(i,j)[178][199](0):[130]j
  85. 850 [130]i
  86. 860 [129] j[178]0 [164] 97
  87. 870 a$(i,j)[178][199](0)
  88. 880 [130]j
  89. 890 p[178]204:j[178]0:i[178]0
  90. 900 [152]1,"u1";2;0;t;s
  91. 910 [161]#2,t$,s$
  92. 920 [152]1,"b-p";2;p
  93. 930 [152]2,a$(i,j);
  94. 940 j[178]j[170]1:[139]j[178]98[167] j[178]1:i[178]i[170]1
  95. 950 [139] i[178]10[167]1010
  96. 960 p[178]p[170]1:[139] p[179]256 [167]930
  97. 970 p[178]2
  98. 980 [152]1,"u2";2;0;t;s
  99. 990 t[178][198](t$[170][199](0)):s[178][198](s$[170][199](0))
  100. 1000 [137]900
  101. 1010 [152]1,"r0:"[170]m$[170]"=<swap>"
  102. 1020 [153]"load          lenonversion  lenomplete"
  103. 1030 [153]"           (NULL)eboot chr$val(NULL)(NULL)? ((NULL)/(NULL)) wait"
  104. 1040 [161]a$:[139]a$[178]""[167]1040
  105. 1050 [139] a$[178]"n" [167] [158]64738
  106. 1060 [160]1:[160]2
  107. 1070 [153]"load    (NULL)lace chr$val(NULL)(NULL) peekootdisk in str$rive.
  108. 1080 print"          [200]it [210][197][212][213][210][206] [146]"
  109. 1090 get a$:if a$=""then1090
  110. 1100 ifa=0 then a=1:load"geos",8,1
  111. 1110 print"[147]                              [146]"
  112. 1120 print"          [146] [195]ommodore to [199][197][207][211]  [146]"
  113. 1130 print"                              [146]"
  114. 1140 print"             [198][207][206][212] [199][210][193][194][194][197][210]     [146]"
  115. 1150 print"                              [146]"
  116. 1160 print"   [195]opyright 1988 [195][207][205][208][213][212][197]! [208]ub., [201]nc."
  117. 1170 print"          [193]ll [210]ights [210]eserved"
  118. 1180 return
  119.